use warnings;
use strict;

require Employee;
require Employer;

sub commonSub
{
	my ($personObj) = @_;
	$personObj->display();
	
	my $assistObj = $personObj->getAssistPerson();
	print $assistObj if defined $assistObj;
}

my $employeeObj = new Employee("zhang san", "Shang hai", "110", 100.2, "CEO");
my $employerObj = new Employer("zhang si", "Shang hai", "120", 100.2, "zhang san");

commonSub($employeeObj);
commonSub($employerObj);
